home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1993 November / JCSM Shareware Collection - 1993-11.iso / cl720 / qbnws24j.lzh / FORMFEED.CB < prev    next >
Text File  |  1991-12-07  |  753b  |  29 lines
  1. /*                                                    */
  2. /*     FORMFEED.CB                                    */
  3. /*     5-9-91  Matt Hart                              */
  4. /*     Macro to form feed the printer                 */
  5. /*                                                    */
  6.  
  7. void formfeed()
  8. {
  9.    int cur_buffer,new_buffer;
  10.    message ("form feed");
  11.    cur_buffer = inq_buffer();
  12.    new_buffer = create_buffer("Form Feed","NULL",1);
  13.    if (new_buffer == 0)
  14.  
  15.    {
  16.       error ("Unable to create print buffer");
  17.    }
  18.    else
  19.    {
  20.       set_buffer (new_buffer);
  21.       self_insert (12);
  22.       move_rel(0,-1);
  23.       drop_anchor(1);
  24.       print();
  25.       set_buffer (cur_buffer);
  26.       delete_buffer (new_buffer);
  27.    }
  28. }
  29.